﻿Namespace [structure]
    <Serializable()> _
      Public Class ValueTextPair
        ' Methods
        Public Sub New()
        End Sub
        ' Fields
        Private _Text As String
        Private _Value As String

        Public Sub New(ByVal value As String, ByVal [text] As String)
            Me._Value = value
            Me._Text = [text]
        End Sub

        Public Property Text() As String
            Get
                Return _Text
            End Get
            Set(ByVal value As String)
                _Text = value
            End Set
        End Property
        Public Property Value() As String
            Get
                Return _Value
            End Get
            Set(ByVal value As String)
                _Value = value
            End Set
        End Property
    End Class
End Namespace

